home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 48 / Tiger_Disk_048_1998-03_Tiger-Crew-Disk_de_Side_B.d64 / grafikdruck [td] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  590b  |  16 lines
  1. 10 poke53280,5:poke53281,5:ifa=0thenprint"[147]":gosub1000
  2. 20 ifa=1thengr$="":input"name der grafik ";gr$:ifgr$=""thenend
  3. 30 ifa=1thena=2:gr$=gr$+"*":loadgr$,8,1
  4. 40 ifa=2then2000
  5. 1000 printtab(6)" ladeprogramm und anleitung "
  6. 1001 printtab(12)" by tigercrew "
  7. 1002 geta$:ifa$=""then1002
  8. 1003 a=1:return
  9. 2000 print"[147]  das druck-programm wird jetzt nach      tastendruck nachgeladen!"
  10. 2001 printtab(10)"dessen bedienung:":print" +/- : bild suchen"
  11. 2002 print" r  bild invertieren":print" p  bild drucken"
  12. 2004 print"    programm-disk einlegen + taste ! "
  13. 2005 poke198,0:wait198,1:poke198,0
  14. 3000 print"load"chr$(34)"bitmap*"chr$(34)",8[145][145][145]"
  15. 3001 poke631,13:poke632,82:poke633,85:poke634,78:poke635,13:poke198,5:end
  16.